home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / videos.arc / VIDEO BOOT (.txt) < prev    next >
Commodore BASIC  |  1987-07-18  |  1KB  |  27 lines
  1. 2 PRINT"[147]":POKE53280,15:POKE53281,15:POKE53282,6:POKE53283,2:POKE53284,14:PRINTCHR$(14):GOSUB900:POKE53265,PEEK(53265)OR64:PRINTCHR$(142);CHR$(147);CHR$(154)TAB(13)"[158]VIDEOFILE BOOT":PRINT:PRINT:PRINT"[212][200][201][211][160][208][210][207][199][210][193][205][160][215][201][204][204][160][206][207][215][160][204][207][193][196][160][193][206][196][160][210][213][206][160][212][200][197][160][160]";:PRINT"[214][201][196][197][207][198][201][204][197][160][208][210][207][199][210][193][205][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]
  2. 60 [153]"OPEN(null)LEFT$RIGHT$(null)VALCLOSE(null)LEFT$VAL(null)CLOSEATN(null)VALCLOSE(null)(null)ATNSTR$RIGHT$(null)CHR$CLOSE(null)LEFT$VALCLOSE(null)LEN(null)VALVAL(null)CLOSE(null)RIGHT$(null)(null)CLOSECLOSE";:[153]"PEEK(null)ATN(null)(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE":[153]"STR$(null)CLOSE(null)(null)(null)CLOSE(null)VAL(null)(null)(null)VALCLOSE(null)LEFT$VALCLOSESTR$RIGHT$(null)(null)CLOSE(null)(null)(null)RIGHT$(null)CLOSE(null)LEFT$VALCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE";:[153]"(null)(null)(null)CHR$(null)ATN(null)CLOSE(null)(null)ATN(null)(null)(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE":[153]:[151]198,0:[153][163]9)"PRESS "[199](18)"SYSSPACE"[199](146)" WHEN READY
  3. 120 GETA$:IFA$=""THEN120
  4. 130 Q$=CHR$(34):D$=CHR$(17):PRINTCHR$(147);CHR$(31);D$;D$;D$"[155]LOAD"Q$"LIGHT.SORT.ML"Q$",8,1":PRINTD$;D$;D$;D$;D$"NEW":PRINTD$;D$"LOAD"Q$"VIDMAIN"Q$",8":PRINTD$;D$;D$;D$;D$"RUN"CHR$(19):FORK=1TO7:POKE630+K,13:NEXT:POKE198,7:END
  5. 900 PRINT"[147][151][201]NSTRUCTIONS?":PRINT" [217] / [206] [146][151]
  6. 910 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]910
  7. 920 [139]A$[178]"N"[167][142]
  8. 930 [153]:U[178]8:N[178]0
  9. 1010 [153]"(null)RINT TO (null)WAITCREEN OR PWAITRINTER ((null)/(null)) ? (null)CMDCMDCMD";:[133]P$:[139]P$[178]"S"[176]P$[178]"(null)"[167]D[178]3:[137]1050
  10. 1030 [139]P$[179][177]"P"[167][153]"ONON":[137]1010
  11. 1040 D[178]4
  12. 1050 F$[178]"VIDEO.DOX":[153]"":F$[178][200](F$,16):F$[178][201]([196](N),1)[170]":"[170]F$:A[178]2:[139]P$[178]"P"[167][153]"(null)EADY PRINTER, ALIGN PAPER, AND
  13. 1090 PRINT"[208]RESS ANY KEY TO CONTINUE...
  14. 1100 [161]A$:[139]A$[178]""[167]1100
  15. 1105 [153]"LOAD":[159]1,U,A,F$:[159]4,D,7:C$[178][199](13)
  16. 1130 [161]#1,A$:E[178]ST:[139]D[178]3[167][139]A$[178]"LOAD"[167][141]1200
  17. 1132 [139]A$[178]"+"[167]A$[178]"LOAD":[139]D[178]3[167][141]1200
  18. 1135 [139]A$[178]"LOAD"[167]1130
  19. 1140 [152]4,A$;:[139]E[178]0[167]1130
  20. 1150 [139]E[179][177]64[167][152]4," READ ERROR
  21. 1160 CLOSE4:CLOSE1:PRINTC$"[208][210][197][211][211][160][193][206][217][160][203][197][217][160][212][207][160][195][207][206][212][201][206][213][197][146]
  22. 1180 [161]K$:[139]K$[178]""[167]1180
  23. 1185 [153]"LOAD";:[142]
  24. 1200 [152]4,"(null)(null)VAL(null)(null)CLOSEATN(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSELEN(null)(null)(null)RIGHT$(null)(null)VALWAIT
  25. 1210 GETK$:IFK$=""THEN1210
  26. 1215 PRINT"[147]";:RETURN
  27.